home *** CD-ROM | disk | FTP | other *** search
/ .net 2000 August / NET74.ISO / pc / Software / My Web Toolbox / MWToolbox205.exe / 0 / RCDATA / TFOJTHUMBNAILS / TFOJTHUMBNAILS.txt < prev   
Encoding:
Text File  |  2000-05-18  |  2.2 KB  |  98 lines
  1. object foJThumbnails: TfoJThumbnails
  2.   Left = 201
  3.   Top = 114
  4.   Width = 383
  5.   Height = 290
  6.   Caption = 'Thumbnail display of image files'
  7.   Color = clBackground
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   Icon.Data = {<image000.ico>}
  14.   Menu = mmJMenu
  15.   OnActivate = FormActivate
  16.   OnClose = FormClose
  17.   OnCreate = FormCreate
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object sbJStatus: TStatusBar
  21.     Left = 0
  22.     Top = 225
  23.     Width = 375
  24.     Height = 19
  25.     Panels = <
  26.       item
  27.         Width = 70
  28.       end
  29.       item
  30.         Width = 150
  31.       end
  32.       item
  33.         Width = 250
  34.       end>
  35.     SimplePanel = False
  36.   end
  37.   object sgJImages: TStringGrid
  38.     Left = 29
  39.     Top = 8
  40.     Width = 323
  41.     Height = 205
  42.     Hint = 'Thumbnail images of image files'
  43.     ColCount = 3
  44.     DefaultColWidth = 100
  45.     DefaultRowHeight = 100
  46.     FixedCols = 0
  47.     RowCount = 2
  48.     FixedRows = 0
  49.     Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine]
  50.     ParentShowHint = False
  51.     ScrollBars = ssVertical
  52.     ShowHint = True
  53.     TabOrder = 1
  54.     Visible = False
  55.     OnDrawCell = sgJImagesDrawCell
  56.     OnKeyUp = sgJImagesKeyUp
  57.     OnMouseUp = sgJImagesMouseUp
  58.   end
  59.   object edJTemp: TEdit
  60.     Left = 0
  61.     Top = 200
  62.     Width = 25
  63.     Height = 21
  64.     TabOrder = 2
  65.     Visible = False
  66.   end
  67.   object mmJMenu: TMainMenu
  68.     object mmJFile: TMenuItem
  69.       Caption = '&File'
  70.       object mmJOpen: TMenuItem
  71.         Caption = 'Select &Image files'
  72.         OnClick = mmJOpenClick
  73.       end
  74.       object mmJCopy: TMenuItem
  75.         Caption = '&Copy filename to clipboard'
  76.         OnClick = mmJCopyClick
  77.       end
  78.       object mmJLine1: TMenuItem
  79.         Caption = '-'
  80.       end
  81.       object mmJExit: TMenuItem
  82.         Caption = 'E&xit'
  83.         Default = True
  84.         OnClick = mmJExitClick
  85.       end
  86.     end
  87.   end
  88.   object odJOpen: TOpenDialog
  89.     DefaultExt = 'bmp'
  90.     Filter = 
  91.       'All image files (*.bmp, *.jpeg, *.jpg)|*.bmp;*.jpeg;*.jpg|BMP fi' +
  92.       'les (*.bmp)|*.bmp|JPEG files (*.jpeg, *.jpg)|*.jpeg;*.jpg'
  93.     Options = [ofReadOnly, ofHideReadOnly, ofAllowMultiSelect, ofFileMustExist]
  94.     Title = 'Open image files'
  95.     Top = 32
  96.   end
  97. end
  98.